home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xfcn / sfxfcn.sit / StandardFile Version 2.1 / card_2219.txt < prev    next >
Encoding:
Text File  |  1990-04-10  |  7.2 KB  |  341 lines
  1. -- card: 2219 from stack: in.1
  2. -- bmap block id: 2380
  3. -- flags: 0000
  4. -- background id: 2592
  5. -- name: Examples
  6.  
  7.  
  8. -- part 8 (field)
  9. -- low flags: 01
  10. -- high flags: 0004
  11. -- rect: left=13 top=95 right=115 bottom=141
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global External_Error
  23.   put StandardFile("apd") into cd fld "Path"
  24.   put External_Error into cd fld "Error"
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 9 (field)
  30. -- low flags: 01
  31. -- high flags: 0002
  32. -- rect: left=88 top=292 right=310 bottom=509
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 3
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Path
  41.  
  42.  
  43. -- part 10 (field)
  44. -- low flags: 01
  45. -- high flags: 0004
  46. -- rect: left=13 top=117 right=137 bottom=373
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: 
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   global External_Error
  58.   put StandardFile("apd:Append,Abort,New FileΓǪ,Make","TEXT") into cd fld "Path"
  59.   put External_Error into cd fld "Error"
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 11 (field)
  65. -- low flags: 01
  66. -- high flags: 0004
  67. -- rect: left=13 top=183 right=203 bottom=141
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: 
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   global External_Error
  79.   put StandardFile("put") into cd fld "Path"
  80.   put External_Error into cd fld "Error"
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 12 (field)
  86. -- low flags: 01
  87. -- high flags: 0004
  88. -- rect: left=13 top=205 right=225 bottom=405
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 3
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: 
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   global External_Error
  100.   put StandardFile("put:Hit Me!,Abort", "Need file hereΓǪ", "Enter a name:") into cd fld "Path"
  101.   put External_Error into cd fld "Error"
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 13 (field)
  107. -- low flags: 01
  108. -- high flags: 0004
  109. -- rect: left=14 top=227 right=247 bottom=142
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: 
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   global External_Error
  121.   put StandardFile("dir") into cd fld "Path"
  122.   put External_Error into cd fld "Error"
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 14 (field)
  128. -- low flags: 01
  129. -- high flags: 0004
  130. -- rect: left=14 top=249 right=269 bottom=302
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 0
  134. -- font id: 3
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: 
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   global External_Error
  142.   put StandardFile("dir:Choose,,Choose Current:") into cd fld "Path"
  143.   put External_Error into cd fld "Error"
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 18 (button)
  149. -- low flags: 00
  150. -- high flags: 8001
  151. -- rect: left=464 top=242 right=290 bottom=507
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 1011 / 1011
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: 
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   go home
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 23 (field)
  168. -- low flags: 01
  169. -- high flags: 0004
  170. -- rect: left=13 top=73 right=93 bottom=300
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 0
  174. -- font id: 3
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: 
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   global External_Error
  182.   put StandardFile("get:This One!,None!", "TEXT", "STAK") into cd fld "Path"
  183.   put External_Error into cd fld "Error"
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 24 (field)
  189. -- low flags: 01
  190. -- high flags: 0004
  191. -- rect: left=13 top=51 right=71 bottom=141
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: 
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   global External_Error
  203.   put StandardFile("get") into cd fld "Path"
  204.   put External_Error into cd fld "Error"
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 27 (field)
  210. -- low flags: 01
  211. -- high flags: 0004
  212. -- rect: left=13 top=139 right=159 bottom=141
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 0
  216. -- font id: 3
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: 
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   global External_Error
  224.   put StandardFile("apd") into cd fld "Path"
  225.   put External_Error into cd fld "Error"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 28 (field)
  231. -- low flags: 01
  232. -- high flags: 0004
  233. -- rect: left=13 top=161 right=181 bottom=300
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 0
  237. -- font id: 3
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: 
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   global External_Error
  245.   put StandardFile("add:Amalgamate,,Create New") into cd fld "Path"
  246.   put External_Error into cd fld "Error"
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 31 (field)
  252. -- low flags: 01
  253. -- high flags: 0001
  254. -- rect: left=88 top=312 right=330 bottom=255
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 0
  258. -- font id: 3
  259. -- text size: 12
  260. -- style flags: 256
  261. -- line height: 16
  262. -- part name: Path
  263.  
  264.  
  265. -- part 30 (field)
  266. -- low flags: 01
  267. -- high flags: 0001
  268. -- rect: left=253 top=312 right=330 bottom=509
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 0
  272. -- font id: 3
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: Error
  277.  
  278.  
  279. -- part 34 (button)
  280. -- low flags: 00
  281. -- high flags: 8001
  282. -- rect: left=464 top=195 right=243 bottom=507
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 5472 / 5472
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: 
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   visual effect wipe right slow
  294.   go to first card
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part contents for card part 8
  300. ----- text -----
  301. StandardFile("apd")
  302.  
  303. -- part contents for card part 10
  304. ----- text -----
  305. StandardFile("apd:Append,Abort,New FileΓǪ,Make","TEXT")
  306.  
  307. -- part contents for card part 11
  308. ----- text -----
  309. StandardFile("put")
  310.  
  311. -- part contents for card part 12
  312. ----- text -----
  313. StandardFile("put:Hit Me!", "Need file hereΓǪ", "Enter a name:")
  314.  
  315. -- part contents for card part 13
  316. ----- text -----
  317. StandardFile("dir")
  318.  
  319. -- part contents for card part 14
  320. ----- text -----
  321. StandardFile("dir:Choose,,Choose Current:")
  322.  
  323. -- part contents for card part 24
  324. ----- text -----
  325. StandardFile("get")
  326.  
  327. -- part contents for card part 23
  328. ----- text -----
  329. StandardFile("get:This One!", "TEXT", "STAK")
  330.  
  331. -- part contents for card part 31
  332. ----- text -----
  333. Global External_Error:
  334.  
  335. -- part contents for card part 27
  336. ----- text -----
  337. StandardFile("add")
  338.  
  339. -- part contents for card part 28
  340. ----- text -----
  341. StandardFile("add:Amalgamate,,Create New")